home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00064_SinglePointStick.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.5 KB  |  121 lines
  1. --
  2. -- SinglePoint
  3. --
  4.  
  5. -- this class handles all runtime game management.
  6.  
  7. -- constants:
  8. property delaySecs  -- the number of seconds we delay before moving on to the next round
  9.  
  10.  
  11. property ancestor
  12. property responseFlag
  13.  
  14. global gUI
  15.  
  16. on new me
  17.   -- initialize constants:
  18.   set delaySecs = 1
  19.   
  20.   set ancestor = new (script "SinglePointPusher")
  21.   
  22.   set responseFlag = TRUE
  23.   
  24.   -- add (the actorList, new (script "ObjectUpdater", me))
  25.   return me
  26. end
  27.  
  28.  
  29. on destruct me
  30.   if objectP (ancestor) then destruct (ancestor)
  31.   set ancestor = 0
  32. end
  33.  
  34.  
  35. on noResponse me
  36.   set responseFlag = FALSE
  37. end
  38.  
  39.  
  40. on initializeRound me
  41.   hideDraggables (me)
  42.   initializeRound (ancestor)
  43.   showDraggables (me)
  44.   pushOffDraggables (me)
  45.   initHandCursor ("hand", getDraggableList (me))
  46.   initPlay (me)
  47. end
  48.  
  49.  
  50. on mouseDown me, spr
  51.   if not isDraggable (me, spr) then return 0
  52.   
  53.   -- drag until release:
  54.   set testSprite = dragSprite (me, spr)
  55.   if testSprite = -1 then return 1  -- drag ended in starting position (exactly)
  56.   
  57.   -- on release of the mouse
  58.   -- check to see if the sprite is overlapping the correct container:
  59.   
  60.   set matchSprite = checkMatch (me, spr, testSprite)
  61.   hideUnderSprite (me)
  62.   
  63.   if matchSprite then
  64.     -- if a match, snap the draggable to position and stick it there.
  65.     snapToPosition (me, spr, matchSprite)
  66.     stickDraggable (me, spr)
  67.     hideTarget (me, matchSprite)
  68.     updateStage
  69.     
  70.     -- play the good response sound 
  71.     if responseFlag then playResponseSound(1, 1)
  72.     -- play the proper "ID" sound
  73.     playSprite (gUI, spr, #ID)
  74.     
  75.     animateSprites (me, [matchSprite])  -- animate the matching sprite
  76.     
  77.     -- move a bar graph if one has been set up:
  78.     moveGraph (me, the name of member the memberNum of sprite matchSprite of castLib the castLibNum of sprite matchSprite)
  79.     
  80.     moveOffScreen (me, matchSprite)
  81.     if not done (me) then 
  82.       initPlay (me)
  83.     end if
  84.         
  85.   else
  86.     showDraggable (me, spr)
  87.     -- play the negative response sound 
  88.     playResponseSound(0, 1)
  89.   end if
  90.   
  91.   return 1
  92. end
  93.  
  94.  
  95.  
  96. -- initialize an individual play:
  97.  
  98. on initPlay me
  99.   set activeSpr = pushOnDraggable (me)
  100.   makePictLink (me, activeSpr)
  101.   -- play the intro sound by sprite...
  102.   playSprite (gUI, activeSpr, #prompt)
  103.   initHandCursor ("hand", getDraggableList (me))
  104. end
  105.  
  106.  
  107.  
  108. -- check to see if we are done.  
  109. -- if so, then do an action.
  110.  
  111. on done me
  112.   clearPictLink (me)
  113.   if checkDone (me) then 
  114.     wait (me, delaySecs)
  115.     go "finish"
  116.     unloadCast (me)
  117.     return 1
  118.   else
  119.     return 0
  120.   end if
  121. end